home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / sspw / sspw.frm < prev    next >
Text File  |  1995-01-13  |  2KB  |  78 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "SSPW"
  5.    ClientHeight    =   1485
  6.    ClientLeft      =   1605
  7.    ClientTop       =   1725
  8.    ClientWidth     =   2790
  9.    Height          =   1890
  10.    Left            =   1545
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   1485
  13.    ScaleWidth      =   2790
  14.    Top             =   1380
  15.    Width           =   2910
  16.    Begin CommandButton Command2 
  17.       Caption         =   "&Quit"
  18.       Height          =   495
  19.       Left            =   1440
  20.       TabIndex        =   2
  21.       Top             =   840
  22.       Width           =   1215
  23.    End
  24.    Begin CommandButton Command1 
  25.       Caption         =   "&Check PW"
  26.       Default         =   -1  'True
  27.       Enabled         =   0   'False
  28.       Height          =   495
  29.       Left            =   120
  30.       TabIndex        =   1
  31.       Top             =   840
  32.       Width           =   1215
  33.    End
  34.    Begin TextBox Text1 
  35.       Height          =   315
  36.       Left            =   120
  37.       TabIndex        =   0
  38.       Top             =   420
  39.       Width           =   2535
  40.    End
  41.    Begin Label Label1 
  42.       BackColor       =   &H00C0C0C0&
  43.       Caption         =   "Enter your Saver Password"
  44.       Height          =   255
  45.       Left            =   120
  46.       TabIndex        =   3
  47.       Top             =   120
  48.       Width           =   2475
  49.    End
  50. End
  51. Option Explicit
  52.  
  53. Sub Command1_Click ()
  54. Dim Password$
  55.   
  56.   Password$ = Text1.Text
  57.   Call EncryptString(Password$)
  58.   If Password$ = GetPassword() Then
  59.     MsgBox "The Password you keyed matches your Saver Password"
  60.   Else
  61.     MsgBox "The Password you keyed does not match your Saver Password"
  62.   End If
  63.   Text1.SetFocus
  64. End Sub
  65.  
  66. Sub Command2_Click ()
  67.   End
  68. End Sub
  69.  
  70. Sub Text1_Change ()
  71.   If Text1.Text > "" Then
  72.     Command1.Enabled = True
  73.   Else
  74.     Command1.Enabled = False
  75.   End If
  76. End Sub
  77.  
  78.